Covid_BR_Analysis

Leitura e pré-processamento dos dados

wd <- getwd()

# Loading developed library for analysis
source(paste(wd,"BRZcovidFunctionsLib.R",sep = "/"))

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

# Download file from brasil.io source
download.file("https://data.brasil.io/dataset/covid19/caso_full.csv.gz","brazilDataGZ.csv.gz")

# Large data.frame with all Brazil data for cities and states
BRZ.Covid.Data<-read.csv(gzfile(description = "brazilDataGZ.csv.gz"))
BRZ.Covid.Data$date <- as.Date(BRZ.Covid.Data$date)

# Separating data for cities and states
state.data <- BRZ.Covid.Data[BRZ.Covid.Data$place_type == "state",]
city.data <- BRZ.Covid.Data[BRZ.Covid.Data$place_type != "state",]

# Aggregating data by date for cities and states, and adding calculated variables (death rate, % of cities with cases and deaths)
state.agg.data <- state.agg.func(state.data, city.data)
city.agg.data <- city.agg.func(city.data)

Ploting data for states comparison

Ploting data for cities comparison